10 POKE53281,0:POKE646,1
62999 REM 64 DATAMAKER ASCII - PANKHURST
63000 INPUT"[147]MEMORY START, END, AND 1ST LINE NUMBER";AS,AE,LS:X=63020
63010 X$="RE[211]:F[207]I=0TO-1ST[197]-1:R[197]X$:I=V[193](X$)=-1:N[197]:X="+STR$(AS)+":D[193]-1":GOTO63090
63020 Y$=CHR$(34):X$="R[197]X$:IFX$="+Y$+"/E"+Y$+"T[200]RE[212]":X=63030:GOTO63090
63030 X$="F[207]I=1TOLEN(X$)ST[197]2:P[207]X,A[211](M[201](X$,I,1))*16+A[211](M[201](X$,I+1,1))-1105"
63040 X=63050:GOTO63090
63050 X$="X=X+1:NEXT:G[207]"+STR$(LS-20):X=63060:GOTO63090
63060 FORI=0TO13:X=PEEK(AS):Y=INT(X/16)
63070 X$=X$+CHR$(Y+65)+CHR$(X-Y*16+65):AS=AS+1:I=I-(AS>AE)*99:NEXT:X$="D[193] "+X$
63080 X=63110
63090 PRINT"[147]"LS;X$:PRINT"AS="AS":AE="AE":LS="LS+10":G[207]"X"";:POKE631,13
63100 POKE632,13:POKE198,2:END
63110 IFAS<=AETHEN63060
63120 X$="D[193] /E":X=63130:GOTO63090
63130 X=63000:INPUT"READY TO DELETE";X$
63140 PRINT"[147]"X:PRINT"X="X+10":G[207]63140";:POKE631,13:POKE632,13:POKE198,2